تبدیل بایت به کیلو بایت

این برنامه خیلی خیلی جالبه...

برای ساخت اون نیاز به ۲ کادر متن و یک دکمه دارید...

API زیر را بارگذاری کنید

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String

دستور زیر رو هم در جنرال بالای ای پی ای بنویسید...

Option Explicit

برای دکمه دستور زیر را نوشته و برنامه را اجرا کنید

On Error Resume Next
    Dim Buffer As String
    Dim Result As String
    Buffer = Space$(255)
    Result = StrFormatByteSize(Text1.Text, Buffer, Len(Buffer))

    If InStr(Result, vbNullChar) > 1 Then
        Text2.Text = Left$(Result, InStr(Result, vbNullChar) - 1)
    End If

موفق باشید

نظر بدین

شما را به خدا

نظر بدین